500 REM          * FILE WRITTEN *
510 REM          *  FROM DATA   *
520 REM
540 DATAW21,DELIGHT,CHAPTER,FARTHER,BUILT,JOYFUL,STORIES
541 DATABOUGHT,SCARF,FILLED,SAILED,REMAIN
550 DATACLOAK,PLACED,DRIVING,FEAST,STRONG,-1,W22,FLYING
551 DATASOMETIMES,HIGHWAY,SNOWING,CLOSING
560 DATABEDTIME,PUSHED,BRUSHES,DREAMING,BOOKCASE,PULLED
561 DATAAIRPLANE,BUYING,SPENDING,SKATED
570 DATADECEMBER,-1,+1
580 READNAME$:R$=CHR$(13)
585 IFNAME$="+1"THENGOTO650
590 OPEN1,1,1,NAME$
600 READWRD$:PRINT#1,WRD$;R$
620 IFWRD$<>"-1"THEN600
630 CLOSE1
640 GOTO580
650 CLOSE1:END